home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_2[commodore_1983].nbz / tongue (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  719 b   |  26 lines
  1. 10 REM DEFINING YOUR OWN CHARACTERS
  2. 20 A=14336:B=53248:C=56334
  3. 30 POKEC,PEEK(C)AND254:REM TRANSFER STANDARD SET OF CHARACTERS TO 14336
  4. 40 POKE1,PEEK(1)AND251
  5. 50 FORJ=0TO2047:POKE(A+J),PEEK(B+J):NEXTJ
  6. 60 POKE1,PEEK(1)OR4
  7. 70 POKEC,PEEK(C)OR1
  8. 80 REM
  9. 90 REM SET UP YOUR OWN CHARACTER DEFINITIONS
  10. 100 REM EACH LINES HOLDS ADDRESS OF CHARACTER FOLLOWED BY 8 VALUES WHICH DEFINE
  11. 110 REM ITS SHAPE. CHARACTERS ARE RUSSIAN LETTERS YA, Z,Y,K
  12. 120 REM AND THEY REPLACE DIGITS 123AND4
  13. 130 DATA 14728,0,62,106,62,30,54,106,0
  14. 140 DATA 14736,0,120,6,12,12,6,120,0
  15. 150 DATA 14744,0,199,199,243,223,223,243,0
  16. 160 DATA 14752,0,102,108,120,120,108,102,0
  17. 200 FORJ=1TO4
  18. 210 READX
  19. 220 FORK=0TO7
  20. 230 READY
  21. 240 POKEX+K,Y
  22. 250 NEXTK,J
  23. 260 REM NEXT SWITCH CHARACTER DESCRIPTION TO 14336
  24. 270 POKE53272,31
  25. 280 REM NOW TRY IT OUT
  26.